5 GOTO10010
10 DATAsinýé+cosýé,1,10,20
20 DATA1+tanýé,secýé,10,30
30 DATA1+cotýé,cosecýé,20,40
40 DATAsin(àñá),sinà¥cosáñcosà¥siná,30,50
50 DATAcos(àñá),cosà¥cosáÅsinà¥siná,40,60
60 DATAtan(àñá),(tanàñtaná)/(1Åtanà¥taná),50,70
70 DATAcot(àñá),(cotà¥cotáÅ1)/(cotáñcotà),60,80
80 DATAsin2é,2siné¥cosé,70,90
90 DATAcos2é,cosýé-sinýé,80,100
100 DATAcos2é,1-2sinýé,90,110
110 DATAcos2é,2cosýé-1,100,120
120 DATAtan2é,2tané/(1-tanýé),110,130
130 DATAsin(é/2),ñû((1-cosé)/2),120,140
140 DATAcos(é/2),ñû((1+cosé)/2),130,150
150 DATAtan(é/2),ñû((1-cosé)/(1+cosé)),140,160
160 DATAtan(é/2),(1-cosé)/siné,150,170
170 DATAtan(é/2),siné/(1+cosé),160,180
180 DATAtan(é/2),cosecé-coté,170,190
190 DATAcot(é/2),ñû((1+cosé)/(1-cosé)),180,200
200 DATAcot(é/2),siné/(1-cosé),190,210
210 DATAcot(é/2),(1+cosé)/siné,200,220
220 DATAcot(é/2),cosecé+coté,210,230
230 DATAsin3é,3siné-4sinþé,220,240
240 DATAcos3é,4cosþé-3cosé,230,250
250 DATAtan3é,(3tané-tanþé)/(1-3tanýé),240,260
260 DATA2sinà¥cosá,sin(à+á)+sin(à-á),250,270
270 DATA2cosà¥siná,sin(à+á)-sin(à-á),260,280
280 DATA2cosà¥cosá,cos(à+á)+cos(à-á),270,290
290 DATA2sinà¥siná,-(cos(à+á)-cos(à-á)),280,300
300 DATAsinà+siná,2sin((à+á)/2)¥cos((à-á)/2),290,310
310 DATAsinà-siná,2cos((à+á)/2)¥sin((à-á)/2),300,320
320 DATAcosà+cosá,2cos((à+á)/2)¥cos((à-á)/2),310,330
330 DATAcosà-cosá,-2sin((à+á)/2)¥sin((à-á)/2),320,340
340 DATAtan(45úñ(é/2)),secéñtané,330,350
350 DATAtan(45úñ(é/2)),(1ñsiné)/cosé,340,360
360 DATAtan(45úñ(é/2)),cot(45úÅ(é/2)),350,370
370 DATAtan(45ú+é),(1+tané)/(1-tané),360,380
380 DATAcot(45ú-é),(1+coté)/(1-coté),370,380
10010 MODE8:DIM:x=10:y=380:r=x
10110 RESTORE(r)
10120 READm$,n$,b,c
10130 l$="["+MID$(STR$(r/10),2)+"]":l=32-LEN(l$)
10140 CLS:PRINTm$;TAB(l);l$;"=";n$;
10150 z=ASC(INPUT$(1,@))
10170 IFz=29 ANDr<>x THENr=x:GOTO10110
10180 IFz=28 ANDr<>y THENr=y:GOTO10110
10190 IFz=30 ANDr<>b THENr=b:GOTO10110
10200 IF(z=31 ORz=13) ANDr<>c THENr=c:GOTO10110
10280 GOTO10150